Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/lbkocx11/lgbktest.frm

Text File | 1997-11-05 | 18KB | 639 lines

VERSION 4.00
Begin VB.Form Form1
   Appearance      =   0  'Flat
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Logbook Control Test"
   ClientHeight    =   5745
   ClientLeft      =   1380
   ClientTop       =   1665
   ClientWidth     =   7620
   ForeColor       =   &H00000000&
   Height          =   6345
   Left            =   1320
   LinkMode        =   1  'Source
   LinkTopic       =   "Logbook"
   ScaleHeight     =   5745
   ScaleWidth      =   7620
   Top             =   1125
   Width           =   7740
   Begin VB.CommandButton bProps
      Caption         =   "Properties"
      Height          =   495
      Left            =   360
      TabIndex        =   30
      Top             =   2880
      Width           =   1695
   End
   Begin VB.Frame Frame4
      Caption         =   "Log Destination"
      Height          =   615
      Left            =   3480
      TabIndex        =   26
      Top             =   2820
      Width           =   3675
      Begin VB.CheckBox LogToFile
         Caption         =   "To File"
         Height          =   195
         Left            =   1860
         TabIndex        =   28
         Top             =   300
         Width           =   855
      End
      Begin VB.CheckBox LogToConsole
         Caption         =   "To Console"
         Height          =   195
         Left            =   180
         TabIndex        =   27
         Top             =   300
         Width           =   1275
      End
   End
   Begin VB.TextBox ClientID
      Height          =   285
      Left            =   1320
      TabIndex        =   24
      Top             =   540
      Width           =   1695
   End
   Begin VB.Frame Frame3
      Caption         =   "Message Components"
      Height          =   615
      Left            =   3480
      TabIndex        =   19
      Top             =   2100
      Width           =   3615
      Begin VB.CheckBox ShowMessage
         Caption         =   "Text"
         Height          =   315
         Left            =   2700
         TabIndex        =   23
         Top             =   240
         Width           =   735
      End
      Begin VB.CheckBox ShowTime
         Caption         =   "Time"
         Height          =   315
         Left            =   960
         TabIndex        =   22
         Top             =   240
         Width           =   735
      End
      Begin VB.CheckBox ShowID
         Caption         =   "ID"
         Height          =   315
         Left            =   1860
         TabIndex        =   21
         Top             =   240
         Width           =   615
      End
      Begin VB.CheckBox ShowLevel
         Caption         =   "Level"
         Height          =   315
         Left            =   120
         TabIndex        =   20
         Top             =   240
         Width           =   735
      End
   End
   Begin VB.ComboBox FilterLevel
      Height          =   315
      Left            =   4860
      Style           =   2  'Dropdown List
      TabIndex        =   16
      Top             =   180
      Width           =   2250
   End
   Begin VB.ComboBox SourceLevel
      Height          =   315
      Left            =   1320
      Style           =   2  'Dropdown List
      TabIndex        =   15
      Top             =   885
      Width           =   1695
   End
   Begin VB.Frame Frame2
      Caption         =   "Test Log Auto-Closure"
      Height          =   990
      Left            =   240
      TabIndex        =   12
      Top             =   1440
      Width           =   2730
      Begin VB.TextBox MaxMessages
         Height          =   315
         Left            =   1785
         TabIndex        =   14
         Text            =   "0"
         Top             =   225
         Width           =   810
      End
      Begin VB.TextBox TimeOut
         Height          =   315
         Left            =   1785
         TabIndex        =   13
         Text            =   "0"
         Top             =   555
         Width           =   825
      End
      Begin VB.Label Label5
         Caption         =   "Message Limit"
         Height          =   240
         Left            =   120
         TabIndex        =   10
         Top             =   300
         Width           =   1095
      End
      Begin VB.Label Label6
         Caption         =   "Time-Out"
         Height          =   240
         Left            =   120
         TabIndex        =   11
         Top             =   600
         Width           =   930
      End
   End
   Begin VB.Frame Frame1
      Caption         =   "Time "
      Height          =   1395
      Left            =   3480
      TabIndex        =   5
      Top             =   600
      Width           =   3615
      Begin VB.TextBox TimeFormat
         Height          =   285
         Left            =   1500
         TabIndex        =   31
         Top             =   960
         Width           =   1875
      End
      Begin VB.OptionButton Option1
         Caption         =   "Since Last Msg"
         Height          =   360
         Index           =   3
         Left            =   1680
         TabIndex        =   4
         Top             =   240
         Width           =   1755
      End
      Begin VB.OptionButton Option1
         Caption         =   "Since Start"
         Height          =   315
         Index           =   2
         Left            =   1680
         TabIndex        =   8
         Top             =   600
         Width           =   1350
      End
      Begin VB.OptionButton Option1
         Caption         =   "Time Of Day"
         Height          =   360
         Index           =   1
         Left            =   135
         TabIndex        =   7
         Top             =   570
         Width           =   1455
      End
      Begin VB.OptionButton Option1
         Caption         =   "None"
         Height          =   360
         Index           =   0
         Left            =   135
         TabIndex        =   6
         Top             =   240
         Width           =   1110
      End
      Begin VB.Label Label1
         Caption         =   "Time Format"
         Height          =   240
         Index           =   1
         Left            =   120
         TabIndex        =   32
         Top             =   960
         Width           =   1095
      End
   End
   Begin VB.HScrollBar HScroll2
      Height          =   210
      LargeChange     =   100
      Left            =   1320
      Max             =   5000
      Min             =   100
      TabIndex        =   1
      Top             =   225
      Value           =   100
      Width           =   1335
   End
   Begin VB.Timer Timer1
      Interval        =   2000
      Left            =   2640
      Top             =   3000
   End
   Begin VB.Label LogPath
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Log Path:"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   3420
      TabIndex        =   29
      Top             =   5400
      Width           =   4155
   End
   Begin VB.Label Label1
      Caption         =   "Client ID"
      Height          =   240
      Index           =   2
      Left            =   180
      TabIndex        =   25
      Top             =   600
      Width           =   735
   End
   Begin Logbk.Logbook Logbook1
      Height          =   1725
      Left            =   0
      TabIndex        =   18
      Top             =   3600
      Width           =   7545
      _Version        =